home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_038_19xx_-_de_Side_B.d64 / imperium romanum (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  61 lines
  1. 1 a=a+1:onagoto2,3,4,10
  2. 2 load"titelmpr",8,1
  3. 3 load"titelzs5",8,1
  4. 4 load"stern",8,1
  5. 10 a$(1)="[157][157][157][157][157]02/'2!--).'_"+chr$(34)+"9"
  6. 11 poke808,225:printchr$(8)
  7. 20 a$(2)="4("+chr$(34)
  8. 30 a$(3)="[157][157][157][157][157]'2!0()#3_"+chr$(34)+"9"
  9. 40 a$(4)="-&"
  10. 45 a$(5)="[157][157][157]-53)#_"+chr$(34)+"9"
  11. 47 a$(6)="[157]+!,,%"
  12. 50 v=53248:pokev+39,1
  13. 55 dimf(110)
  14. 60 fori=1to100 step4:f(i)=1:f(i+1)=15:f(i+2)=11:f(i+3)=12:next
  15. 500 print"[147]"
  16. 510 forx=1to250:next
  17. 520 print"[144]":print"[147]"
  18. 530 sys49152
  19. 531 fori=1to100:x=int(rnd(0)*1000):ifx>280andx<480then536
  20. 535 pokex+1024,160:poke55296+x,f(i)
  21. 536 next
  22. 537 fori=1to5:x=int(rnd(0)*255)+1:y=int(rnd(0)*200)+1
  23. 538 forj=1to4:poke2040,(j+197):pokev,x:pokev+1,y:pokev+21,1
  24. 539 forw=1to100:next:pokev+21,0
  25. 540 next:next
  26. 549 poke780,11:sys49210
  27. 550 for x=1to90 :next
  28. 560 poke780,12:sys49210
  29. 570 for x=1to90 :next
  30. 580 poke780,15:sys49210
  31. 590 for x=1to90 :next
  32. 600 poke780,1:sys49210
  33. 650 print""
  34. 660 i=1
  35. 670 for x=1to400 :next
  36. 700 print"[151]";a$(i):print"[145]";
  37. 705 for x=1to90 :next
  38. 710 print"[152]";a$(i):print"[145]";
  39. 715 for x=1to90 :next
  40. 720 print"[155]";a$(i):print"[145]";
  41. 725 for x=1to90 :next
  42. 730 print"";a$(i):print"[145]";
  43. 740 for x=1to700 :next
  44. 750 print"[155]";a$(i):print"[145]";
  45. 755 for x=1to90 :next
  46. 760 print"[152]";a$(i):print"[145]";
  47. 765 for x=1to90 :next
  48. 770 print"[151]";a$(i):print"[145]";
  49. 775 for x=1to90 :next
  50. 780 print"[144]";a$(i):print"[145]";
  51. 785 for x=1to90 :next
  52. 790 i=i+1:ifi<7then goto700
  53. 900 getb$:ifb$=""then900
  54. 910 print"[144][147]"
  55. 920 print"l[207]";chr$(34);"zsir3";chr$(34);",8,1"
  56. 921 print:print:print:print:print"new"
  57. 922 print:print:print"l[207]";chr$(34);"[160] text";chr$(34);",8,1"
  58. 930 print:print:print:print:print"run"
  59. 940 poke198,9
  60. 950 poke631,19:fori=632to639:pokei,13:next
  61.